VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CProducto"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Dim logica As lProducto
Dim lCategoria As lCategoria
Dim lEstado As lEstado
Dim lDestino As lDestino
Dim ltipo As ltipo
Dim lAlmacen As lAlmacen
Public Function getLista(bean As bproducto) As Collection
Dim error As Integer
Set getLista = logica.getLista(bean)
End Function
Private Sub Class_Initialize()
Set logica = New lProducto
Set lCategoria = New lCategoria
Set lEstado = New lEstado
Set lDestino = New lDestino
Set ltipo = New ltipo
Set lAlmacen = New lAlmacen
End Sub
Public Function eliminar(bproducto As bproducto)
eliminar = logica.eliminar(bproducto)
If eliminar = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje errorEncontrado
End If
End Function
Public Sub mostrarNuevo()
Set frmEntrarProducto.bean = New bproducto
frmEntrarProducto.modo = UtilConstantes.MODO_NUEVO
Set frmEntrarProducto.ListaEstado = lEstado.getEstadosProducto
Set frmEntrarProducto.listaCategoria = lCategoria.getLista(New bCategoria)
Set frmEntrarProducto.listaDestino = lDestino.getLista(New bdestino)
Set frmEntrarProducto.listaTipo = ltipo.geTiposProducto
Set frmEntrarProducto.listaAlmacen = lAlmacen.getLista(New bAlmacen)
 frmEntrarProducto.Show 1
End Sub
Public Sub mostrarActualizar(bean As bproducto)
frmEntrarProducto.modo = UtilConstantes.MODO_ACTUALIZAR
Set frmEntrarProducto.ListaEstado = lEstado.getEstadosProducto
Set frmEntrarProducto.listaCategoria = lCategoria.getLista(New bCategoria)
Set frmEntrarProducto.listaDestino = lDestino.getLista(New bdestino)
Set frmEntrarProducto.listaTipo = ltipo.geTiposProducto
Set frmEntrarProducto.listaAlmacen = lAlmacen.getLista(New bAlmacen)
Set frmEntrarProducto.bean = bean
frmEntrarProducto.Show 1
End Sub
Public Function guardarNuevo(bean As bproducto) As Integer
Dim result As Integer
result = logica.guardarNuevo(bean)
Select Case result
    Case UtilConstantes.OPT_DATOS_GUARDADOS
        'utilMensaje.muestraMensaje DatosGuardados
    Case UtilConstantes.OPT_CLAVE_DUPLICADA
        utilMensaje.muestraMensaje codigoDuplicado
    Case UtilConstantes.OPT_ERROR_ENCONTRADO
        utilMensaje.muestraMensaje errorEncontrado
    Case UtilConstantes.OPT_NOMBRE_DUPLICADO
        utilMensaje.muestraMensaje DatoDuplicado
End Select
guardarNuevo = result
End Function
Public Function actualizar(bean As bproducto) As Integer
Dim result As Integer
result = logica.actualizar(bean)
Select Case result
    Case UtilConstantes.OPT_DATOS_GUARDADOS
        'utilMensaje.muestraMensaje DatosGuardados
    Case UtilConstantes.OPT_CLAVE_DUPLICADA
        utilMensaje.muestraMensaje codigoDuplicado
    Case UtilConstantes.OPT_ERROR_ENCONTRADO
        utilMensaje.muestraMensaje errorEncontrado
    Case UtilConstantes.OPT_DATOS_DUPLICADOS
        utilMensaje.muestraMensaje DatoDuplicado
End Select
actualizar = result
End Function
Private Sub Class_Terminate()
Set logica = Nothing
Set lCategoria = Nothing
Set lEstado = Nothing
Set ltipo = Nothing
Set lAlmacen = Nothing
End Sub
